home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_1
/
pubdom.tar
/
pubdom
/
maguire
/
bomber
/
bomber.dir
< prev
Wrap
File List
|
1990-05-14
|
4KB
|
171 lines
%%HP: T(1)A(D)F(.);
DIR
BLDNG
GROB 131 15 000000000F00036000008F381600000000838FE3008F100F7000008A281600E30000828AA200CF30055000008F381600A20000838FE300CF300F7000008A281600E30000828AA200CF30055000008F381600A20000838FE3008F100F7000008A281600E30000828AA2008010055000008F381600AA3000EFEFEF60B09FFF7EC0FFFFBF36FFFF3C00AAAAAA60B995555AC0FAEAAA27BAAA2C00EFEFEFEFB6DFFF7ECFFFFFBF35FFFFFF00AAAAAAAAA955555AFAEAEAAA2FBAAAAA00EFEFEFEFB0DFFF7EFFFFFFFF3DFFFFFF00AAAAAAAAA055555AAAEAEAEA2FBAAAAA00EFEFEFEFBFDFFF7EFFFFFFFF3DFFFFFF00EFEFEFEFB9DFFF7EFFFFFFFF3FFFFFFF00
BOMBS {
GROB 8 10 0000C381C3E7E7E7C381
GROB 10 7 000000008300C710EF10C7108300
GROB 13 7 0000000020006F70EFF06F702000
GROB 9 11 00000000C00001008300440028002800280044008300
GROB 9 9 000000008300C7006F00EF00EF00C7008300
GROB 9 9 0000000083004500AA006D00AA0045008300
GROB 8 8 00008081C7E38101
GROB 8 8 00008081C7E38101
GROB 5 5 0000A040A0
}
CRS
GROB 11 11 000000000000020002008F0002000200000000000000
CST { PLAY QUIT }
DSTY {
GROB 25 17 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GROB 25 17 00EF000008BA30000E55F0000BAAA10085555300CAAAA60045555500AAAAAE0065555D00BAAAAA1055555510FAAAAE10C755F70008FE3000008300000082000000830000
GROB 25 17 00EF000008FF30000EFFF0000FFFF1008FFFF300CFFFF700CFFFF700EFFFFF00EFFFFF00FFFFFF10FFFFFF10FFFFFF10CFFFF70008FF3000008300000083000000830000
GROB 25 17 00000000000000000000000000000000000000000000000000C7000000FF10000CFF70000EFFF0000EFFF0000FFFF1000FFFF1008FFFF3008FFFF3000EFFF00000830000
GROB 25 17 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000C7000000EF000000FF100008FF30000CFF70000CFF7000
GROB 25 17 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000083000000C7000000EF0000
}
EXGR {
GROB 19 16 002000200020000000000000000000000000000000000000000000000000000000000000000000000000200020002000
GROB 19 16 000000002000402010802800010400000000000000000000000000000000000000010400802800402010002000000000
GROB 19 16 000000000000002000802800012400022200042100000000000000042100022200012400802800002000000000000000
GROB 19 16 00000000000000000000200001240002220004210008F00008F000042100022200012400002000000000000000000000
GROB 19 16 00000000000000000000000000200002220004710008F00008F000047100022200002000000000000000000000000000
}
IMPRG
½ WORK RCLF ì
fgs
½ -40 CF -55
CF CLLCD
" BOMBER" 4
DISP
DO 1 MENU
CST
WHILE -1
WAIT IP 10 - DUP2
SWAP SIZE >
REPEAT
DROP 340 .07 BEEP
END GET
DUP ì l
½ EVAL l
╗
UNTIL { End
EXIT QUIT } SWAP
POS
END fgs
STOF
╗
╗
INT
½ 20 CF SNL 4 +
130 MOD 'SNL' STO
BOMBS DUP SIZE RAND
* CEIL GET 'BOMB'
STO BS .1 - -2 MAX
'BS' STO (60,30)
'CL' STO
DO RAND 116 *
1 +
UNTIL DUP SNL
- ABS 24 >
END 'BL' STO
# 131d # 64d BLANK
(0,14) BLDNG REPL
SNL 61 RìC SUN GOR
RAND BS * -1 MAX
RAND .5 - SIGN *
'HS' STO
╗
MAIN
½
DO INT CL CRS
REPL PICT { # 0d
# 0d } ROT REPL {
# 0d # 0d } PVIEW
63 7
FOR i
IF KEY
THEN {
(0,3) (0,-3) (-3,0)
(3,0) } { 25 35 34
36 } ROT POS
IFERR
GET
THEN
DROP2 880 .02 BEEP
IF BL
i RìC DUP CL - ABS
5 <
THEN
ZAP 0 'i' STO
ELSE
DROP
END
ELSE
'CL' STO+ PICT CL
CRS REPL
END
END PICT
BL DUP HS + 120 MIN
0 MAX 'BL' STO i
RìC BOMB REPL BS
STEP CLEAR
IF 20 FC?C
THEN XPLD 1
WAIT
END
UNTIL ST NOT
END
╗
PLAY
½ # 131d # 64d
PDIM 0 130 XRNG 0
64 YRNG -.8 'BS'
STO 10 'SNL' STO
300 'ST' STO
IFERR MAIN
THEN
END CLEAR
PICT (38,40)
"GAME OVER" 3 ìGROB
REPL 330 1 BEEP 2
WAIT 3 FREEZE
╗
QUIT
½ WORK CLVAR
BOMBERDIR UPDIR 2
MENU
╗
SUN
GROB 15 15 1804280248018C90036001408080F0878080014003608C90480128021804
WORK
DIR
END
XPLD
½ DSTY OBJì
DROP PICT BL 16 RìC
1 6
START DUP2 5
ROLL REPL
NEXT 1 5
START 30 .1
BEEP 50 .05 BEEP 40
.05 BEEP
NEXT ST RAND
40 * 40 + - 0 MAX
IP "STRENGTH " OVER
ìSTR + 2 ìGROB PICT
(15,62) ROT REPL
'ST' STO
╗
ZAP
½ EXGR LISTì
PICT OVER 3 + ROLL
(-5,4) + 1 4 ROLL
START DUP2 5
ROLL REPL
NEXT DROP2 75
.01 BEEP 20 SF
╗
END